clear all
use "Austria Admin Data FF2010.dta"

sum age_app, detail

scatter number_invoices date if year==2010 & month>=9 & subsidy==1 & day_of_week!=0, connect(l) msize(tiny) lcolor(black) mcolor(black) ytitle("Number of invoices") xtitle("") graphregion(color(white))

graph export "PBATFF.eps", as(eps) fontface("Baskerville Old Face") replace

cumul age_app, gen(age)
line  age age_app, sort xtitle("Age of Recycled Appliance") ytitle("") lcolor(black) graphregion(color(white)) xlabel(0 (10) 50)

graph export "CumulAgeATFF.eps", as(eps) fontface("Baskerville Old Face") replace
